home *** CD-ROM | disk | FTP | other *** search
/ Sports Illustrated for Kids - Awesome Athletes! / Sports Illustrated for Kids - Awesome Athletes!.iso / tr.dir / 00008_InitBalloonObjects.ls < prev    next >
Encoding:
Text File  |  1996-04-18  |  3.4 KB  |  86 lines
  1. on InitBalloonObjects
  2.   global gzTRBalloonObj, gcTRBAL_CH1, gcTR_BLUE, gcTR_RED, gcTR_GREEN, gcTR_YELLOW, gcTR_ORG, gcTR_PINK
  3.   repeat with vIndex = 1 to 30
  4.     mSetMySpriteChan(getAt(gzTRBalloonObj, vIndex), gcTRBAL_CH1 + (vIndex - 1))
  5.   end repeat
  6.   repeat with vI = 1 to 30
  7.     set vCastNum to the number of cast "BalloonOne" + (vI - 1)
  8.     mSetMyCastNum(getAt(gzTRBalloonObj, vI), vCastNum)
  9.   end repeat
  10.   repeat with vIndex = 1 to 30
  11.     mSetMyVisible(getAt(gzTRBalloonObj, vIndex), 1)
  12.   end repeat
  13.   repeat with vIndex = 1 to 30
  14.     mSetAmIDouble(getAt(gzTRBalloonObj, vIndex), 0)
  15.   end repeat
  16.   repeat with vIndex = 1 to 30
  17.     mSetHaveIBeenDouble(getAt(gzTRBalloonObj, vIndex), 0)
  18.   end repeat
  19.   repeat with vIndex = 1 to 30
  20.     mResetQuestList(getAt(gzTRBalloonObj, vIndex))
  21.   end repeat
  22.   repeat with vIndex = 1 to 30
  23.     mSetAmIPopped(getAt(gzTRBalloonObj, vIndex), 0)
  24.   end repeat
  25.   set vTemp to list(10, 20, 30, 40, 50, 10, 20, 30, 40, 50, 10, 20, 30, 40, 50, 10, 20, 30, 40, 50, 10, 20, 30, 40, 50, 10, 20, 30, 40, 50)
  26.   repeat with I = 1 to 30
  27.     mSetMyPointValue(getAt(gzTRBalloonObj, I), getAt(vTemp, I))
  28.   end repeat
  29.   set vTemp to list(EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY)
  30.   repeat with I = 1 to 30
  31.     mSetMyQuestion(getAt(gzTRBalloonObj, I), getAt(vTemp, I))
  32.   end repeat
  33.   set vTemp to list(gcTR_GREEN, gcTR_GREEN, gcTR_GREEN, gcTR_GREEN, gcTR_GREEN, gcTR_ORG, gcTR_ORG, gcTR_ORG, gcTR_ORG, gcTR_ORG, gcTR_PINK, gcTR_PINK, gcTR_PINK, gcTR_PINK, gcTR_PINK, gcTR_RED, gcTR_RED, gcTR_RED, gcTR_RED, gcTR_RED, gcTR_YELLOW, gcTR_YELLOW, gcTR_YELLOW, gcTR_YELLOW, gcTR_YELLOW, gcTR_BLUE, gcTR_BLUE, gcTR_BLUE, gcTR_BLUE, gcTR_BLUE)
  34.   repeat with I = 1 to 30
  35.     mSetMyPopColor(getAt(gzTRBalloonObj, I), getAt(vTemp, I))
  36.   end repeat
  37. end
  38.  
  39. on ShowAllBalloons
  40.   global gzTRBalloonObj, gcTRBAL_CH1
  41.   set vSounds to list("Clo", "D", "E", "F", "G", "A", "B", "Chi")
  42.   repeat with vIndex = 1 to 30
  43.     set vNum to random(8)
  44.     puppetSound("clink" & random(6) & ".aif")
  45.     updateStage()
  46.     puppetSprite(gcTRBAL_CH1 + (vIndex - 1), 1)
  47.     mSetMyVisible(getAt(gzTRBalloonObj, vIndex), 1)
  48.     mSetAmIPopped(getAt(gzTRBalloonObj, vIndex), 0)
  49.     set the castNum of sprite (gcTRBAL_CH1 + (vIndex - 1)) to the number of cast "BalloonOne" + (vIndex - 1)
  50.     set vCastNum to the number of cast "BalloonOne" + (vIndex - 1)
  51.     mSetMyCastNum(getAt(gzTRBalloonObj, vIndex), vCastNum)
  52.     updateStage()
  53.   end repeat
  54.   repeat while soundBusy(1)
  55.     nothing()
  56.   end repeat
  57. end
  58.  
  59. on ShowAllBalloonsFast
  60.   global gzTRBalloonObj, gcTRBAL_CH1
  61.   repeat with vIndex = gcTRBAL_CH1 to gcTRBAL_CH1 + 29
  62.     puppetSprite(vIndex, 1)
  63.     set the visible of sprite vIndex to 1
  64.     updateStage()
  65.   end repeat
  66. end
  67.  
  68. on InitBalloonObjsForNewGame
  69.   global gcTRBAL_CH1
  70.   repeat with vIndex = 1 to 30
  71.     mSetMySpriteChan(getAt(gzTRBalloonObj, vIndex), gcTRBAL_CH1 + (vIndex - 1))
  72.   end repeat
  73.   repeat with vIndex = 1 to 30
  74.     mSetMyVisible(getAt(gzTRBalloonObj, vIndex), 1)
  75.   end repeat
  76.   repeat with vIndex = 1 to 30
  77.     mSetAmIDouble(getAt(gzTRBalloonObj, vIndex), 0)
  78.   end repeat
  79.   repeat with vIndex = 1 to 30
  80.     mResetQuestList(getAt(gzTRBalloonObj, vIndex))
  81.   end repeat
  82.   repeat with vIndex = 1 to 30
  83.     mSetAmIPopped(getAt(gzTRBalloonObj, vIndex), 0)
  84.   end repeat
  85. end
  86.